<% DoLogin %> <% bTwoCol = true bShowThumbs = false bShowPics = false bShowName = false bShowCompany = true bShowEmail = false bShowName2 = true bShowCompany2 = false bShowEmail2 = true debgcolor = "#d2b48c" dirtextcolor = "#0000ff" sDEHeadingFont="" sDEHeadingFontEnd="" sDESubHeadingFont="" sDESubHeadingFontEnd="" sDETextFont="" sDETextFontEnd="" sCat1="District/County/School Address" sCat2="Grades Served" sCat3="ADA average" sCat4="Staff Names/Positions" sCat5="Description of School" %>

	<% Dim oRs Dim oCmd Dim myconn Dim nID Dim nPageNo Dim sThumbImage sThumbImage = "images/Img7.gif" if Request.QueryString("id") then nID = CInt(Request.QueryString("id")) else nID=-1 end if if Request.QueryString("pageno") then nPageNo = CInt(Request.QueryString("pageno")) else nPageNo = 1 end if %> <% Set oRs = Server.CreateObject("ADODB.Recordset") Set myconn = GetConnection("passwords/") Set oCmd = Server.CreateObject("ADODB.Command") Set oCmd.ActiveConnection = myconn oCmd.CommandType = 1 oCmd.CommandText = "SELECT * FROM Directory INNER JOIN Members ON Directory.MemberID = Members.MemberID WHERE Directory.DirectoryID=" & nID oRs.Open oCmd if not oRs is NOTHING and not oRs.eof then oRs.MoveFirst Response.Write "" &vbCrLf Response.Write "" else end if %> Click here to return to the Directory " Dim sDEHead Dim sDESubHead Dim sEmail sEmail = oRs("UserEmail") if (bShowName and not IsNull(oRs("UserName"))) then sDEHead = sDEHead & oRs("UserName") end if if (bShowCompany and not IsNull(oRs("UserCompany"))) then sDEHead = sDEHEad & oRs("UserCompany") end if if (bShowEmail and not IsNull(sEmail)) then sDEHead = sDEHead & sEmail end if if (bShowName2 and not IsNull(oRs("UserName"))) then sDESubHead = sDESubHead & oRs("UserName") & " " end if if (bShowCompany2 and not IsNull(oRs("UserCompany"))) then sDESubHead = sDESubHead & oRs("UserCompany") & " " end if if (bShowEmail2 and not IsNull(sEmail)) then sDESubHead = sDESubHead & sEmail & " " end if Response.Write sDEHeadingFont & sDEHead & sDEHeadingFontEnd & " " Response.Write sDESubHeadingFont & sDESubHead & sDESubHeadingFontEnd & " " Response.Write " " & vbCrLf Response.Write "" Response.Write "" & vbCrLf ' Show a picture? do a TD if bShowPics then Dim sImage sImage = oRs("Image") if IsNull(sImage) or Len(sImage) = 0 then sImage = sThumbImage end if Response.Write "" end if ' Write the record Response.Write " " Response.Write "   " Response.Write sDETextFont & sSubHead & " " & oRs("SubHeading") & sDETextFontEnd & " " & vbCrLf if (Len(sCat1) > 0) then Response.Write sDETextFont & sCat1 & sDETextFontEnd & " " Response.Write sDETextFont & oRs("Text0") & sDETextFontEnd & " " & vbCrLf end if if (Len(sCat2) > 0) then Response.Write sDETextFont & sCat2 & sDETextFontEnd & " " Response.Write sDETextFont & oRs("Text1") & sDETextFontEnd & " " & vbCrLf end if if (Len(sCat3) > 0) then Response.Write sDETextFont & sCat3 & sDETextFontEnd & " " Response.Write sDETextFont & oRs("Text2") & sDETextFontEnd & " " & vbCrLf end if if (Len(sCat4) > 0) then Response.Write sDETextFont & sCat4 & sDETextFontEnd & " " Response.Write sDETextFont & oRs("Text3") & sDETextFontEnd & " " & vbCrLf end if if (Len(sCat5) > 0) then Response.Write sDETextFont & sCat5 & sDETextFontEnd & " " Response.Write sDETextFont & oRs("Text4") & sDETextFontEnd & " " & vbCrLf end if Response.Write " <%'!!%>
	Directory | Home Page | Member Logout